home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 0007.ZIP / PAL40.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  868b  |  35 lines
  1. 100 '
  2. 110 'ARTWARE by Roman Verostko
  3. 120 'Mpls College of Art & Design
  4. 130 '133 East 25th Street
  5. 140 'Minneapolis, Minnesota 55404
  6. 150 '
  7. 160 '
  8. 170 '**********************
  9. 180 '*                    *
  10. 190 '*  PALETTE PROMPTER  *
  11. 200 '*                    *
  12. 210 '*    "PAL40.BAS"     *
  13. 220 '*                    *
  14. 230 '**********************
  15. 240 '
  16. 250 'Designed for width 40
  17. 260 'OK but compressed in width 80
  18. 270 'Use "Pal80" to program in width 80
  19. 280 '
  20. 290 '
  21. 300 SCREEN 0,1:KEY OFF:CLS
  22. 310 FOR V=2 TO 20 STEP 2
  23. 320  C=(V/2)-1:IF C=0 THEN C=8
  24. 330  N=(V/2)-1:COLOR C,0,0
  25. 340  LOCATE 25,V-1:PRINT N;
  26. 350  IF N=0 THEN C=0:COLOR C,0,0
  27. 360  LOCATE 25,V-1:PRINT CHR$(219);
  28. 370 NEXT V
  29. 380 FOR V=30 TO 45 STEP 3
  30. 390  C=(V/3):COLOR C,0,0
  31. 400  LOCATE 25,V-9:PRINT C;
  32. 410  LOCATE 25,V-9:PRINT CHR$(219);
  33. 420 NEXT V
  34. 430 COLOR 15,0:LOCATE 1,1:END
  35.